unit PurCtrlList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildcxGridForm, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxStyles, dxSkinscxPCPainter, cxCustomData,
  cxFilter, cxData, cxDataStorage, DB, cxDBData, Menus, DBActns,
  StdActns, ActnList, ImgList, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  cxLabel, ExtCtrls, BaseBillList,
  GlobalVar, GlobalInterface, MisString, cxGridCustomPopupMenu,
  cxGridPopupMenu, MemDS, DBAccess, Uni, dxSkinsForm, cxNavigator, Vcl.ComCtrls,
  dxCore, cxDateUtils, System.Actions, System.ImageList, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, Vcl.StdCtrls, cxButtons, cxCheckBox;

type
  TfrmPurCtrlList = class(TfrmBaseBillList)
    procedure FormCreate(Sender: TObject);
    procedure PopmnuNewRecordClick(Sender: TObject);
  private
    { Private declarations }
  protected
  public
    { Public declarations }
  end;

var
  frmPurCtrlList: TfrmPurCtrlList;

implementation

uses PurchaseWizard;

{$R *.dfm}

{ TfrmPurCtrlList }


procedure TfrmPurCtrlList.FormCreate(Sender: TObject);
begin
  FBType := btPurControl;
  inherited;
end;

procedure TfrmPurCtrlList.PopmnuNewRecordClick(Sender: TObject);
begin
 inherited;
  frmPurchaseWizard:= TfrmPurchaseWizard.Create(nil);
  if (frmPurchaseWizard.ShowModal = mrOk) then
    LocateRecord(-1, 6);
  FreeAndNil(frmPurchaseWizard);
end;

end.


